home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / routing / static.frm.z / static.frm
Encoding:
Text File  |  1997-07-30  |  8.9 KB  |  342 lines
  1. #!/usr/bin/perl5
  2. #
  3. # static.cgi
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: static.frm,v 1.9 1997/06/19 22:26:31 shotes Exp $
  21.  
  22. require "/usr/OnRamp/lib/OnRamp.pm";
  23. require "/usr/OnRamp/lib/java.pm";
  24.  
  25. $conf = "/etc/config/static-route.options";
  26. $dummy = "/tmp/static.dummy";
  27. $myname = "static.cgi";
  28. $title = "Static Routing";
  29.  
  30. $js_main =
  31. "type = \"route\";
  32. $js_account_main
  33. $js_error_box
  34. $js_ip
  35. function testAdd(form) {
  36.     if (!testRoute(form.destination)) return (false);
  37.     return (true);
  38. }
  39. function testRoute(Ctrl) {
  40.     if (Ctrl.value == \"\") { 
  41.         errorBox (Ctrl, \"To add a new route, first enter \\na \"
  42.                 + \"destination IP address.\"); 
  43.         return (false); 
  44.     }
  45.     if (Ctrl.value == \"default\") return (true);
  46.     if (!testIPaddress(Ctrl.value,false)) { 
  47.         errorBox (Ctrl, \"The destination address \" + Ctrl.value 
  48.                 + \"\\nis invalid.\"); 
  49.         return (false); 
  50.     }
  51.     return (true);
  52. }";
  53.  
  54. $js_add =
  55. "$js_standard
  56. $js_error_box
  57. $js_ip
  58. function checkForm(form)  {
  59.     if (!testIP(form.route)) return (false);
  60.     return (true);
  61. }
  62. function testIP(Ctrl) {
  63.     if (Ctrl.value == \"\") { 
  64.         errorBox (Ctrl, \"The IP address of the router \\nis required.\"); 
  65.         return (false); 
  66.     }
  67.     if (!testIPaddress(Ctrl.value,false)) { 
  68.         errorBox (Ctrl, \"The router address \" + Ctrl.value 
  69.                 + \"\\nis invalid.\"); 
  70.         return (false); 
  71.     }
  72.     return (true);
  73. }";
  74.  
  75. $js_edit =
  76. "$js_standard
  77. $js_error_box
  78. $js_ip
  79. function checkForm(form) {
  80.     if (!testIP(form.route)) return (false);
  81.     return (true);
  82. }
  83. function testIP(Ctrl) {
  84.     if (Ctrl.value == \"\") { 
  85.         errorBox (Ctrl, \"The IP address of the router \\nis required.\"); 
  86.         return (false); 
  87.     }
  88.     if (!testIPaddress(Ctrl.value,false)) { 
  89.         errorBox (Ctrl, \"The router address \" + Ctrl.value 
  90.                 + \"\\nis invalid.\"); 
  91.         return (false); 
  92.     }
  93.     return (true);
  94. }";
  95.  
  96. print "Content-type: text/html\n\n";
  97.  
  98. &get_fields;
  99. &getGateways;
  100.  
  101. $delete = 0;
  102.  
  103. if (%fld) {
  104.     $help = $document_root . $ENV{"SCRIPT_NAME"};
  105.     $help =~ s/cgi$/hlp/;
  106.     exec $help if ($fld{'help'} eq "Help");
  107.  
  108.     $fld{'chosen'} =~ /([\w.]+)/;
  109.     $fld{'chosen'} = $1;
  110.     if ($fld{"add"}) { 
  111.         &validAdd;
  112.         $val{'metric'} = 1;
  113.         &getAdd;
  114.         exit 0; 
  115.     }
  116.     elsif ($fld{"doAdd"}) {
  117.         &valid(0);
  118.         &doAdd;
  119.         $fld{'destination'} = "";
  120.         &getGateways;
  121.     }
  122.     elsif ($fld{"doEdit"}) {
  123.         &valid(1);
  124.         &doEdit;
  125.         &getGateways;
  126.     }
  127.     elsif ($fld{"edit"}) {
  128.         &error(2,"To edit an existing route, first choose one from the list,
  129.             then click the edit button.") if !$fld{'chosen'};
  130.         &getGateways($fld{'chosen'});
  131.     $val{'old_route'} = $rout;
  132.     $val{'old_type'} = $type;
  133.         &putEdit;
  134.         &getEdit;
  135.         exit 0; 
  136.     }
  137.     elsif ($fld{"delete"}) { 
  138.         &error(2,"To delete an existing route, first choose one from the 
  139.             list, then click the delete button.") if !$fld{'chosen'};
  140.         $delete = 1;
  141.         $message = qq|Click "Ok" to save changes.|; 
  142.     }
  143.     elsif ($fld{"doit"}) { 
  144.         if ($fld{'delGateway'}) { &doDelete; };
  145.         &getGateways;
  146.     }
  147.     else {
  148.         $message = "Use buttons to submit form.";
  149.     }
  150.  
  151.     if (!$message) { $message = "No change made."; }
  152.     %val = %fld; 
  153. } 
  154.  
  155. &generic;
  156.  
  157. sub valid {
  158.     &error($_[0],"Invalid route address.") if !$fld{'route'} || &check_ipaddr($fld{'route'});
  159. } 
  160.  
  161. sub validAdd {
  162.     &error(2,"You must provide a route address.") if !$fld{'destination'};
  163.     if ($fld{'destination'} ne "default") {
  164.         &error(2,"Invalid route address.") 
  165.         if &check_ipaddr($fld{'destination'});   
  166.     }
  167. }
  168.  
  169. sub error {
  170.     &error_block($_[1]);
  171.     %val = %fld;
  172.     if ($_[0] == 0) { &getAdd; }
  173.     elsif ($_[0] == 1) { &getEdit; }
  174.     else { &generic; }
  175.     exit 0;
  176. }
  177.  
  178. sub doDelete {
  179.     open(IN,"< $conf");
  180.     open(OUT,"> $dummy");
  181.     while(<IN>) {
  182.         @items = split(/\s+/);
  183.         if ($items[3] eq $fld{'delGateway'}) { 
  184.         $cmd = $_;
  185.         chop $cmd;
  186.         $cmd =~ s/add/delete/;
  187.         $cmd = "/usr/etc" . $cmd;
  188.         system("$cmd > /dev/null 2>&1");
  189.         print OUT "# $_"; 
  190.     }
  191.         else { print OUT $_; }
  192.     }
  193.     close(IN);
  194.     close(OUT);
  195.     rename($dummy,$conf);
  196.  
  197.     $message .= "Route deleted.";
  198. }
  199.  
  200. sub doAdd {
  201.     $cmd = "/usr/etc/route add -$fld{'type'} $fld{'destination'} $fld{'route'}";
  202.     system("$cmd > /dev/null 2>&1");
  203.  
  204.     open(OUT,">> $conf");
  205.     print OUT "$cmd\n";
  206.     close(OUT);
  207.  
  208.     $message = "Route added.";
  209. }
  210.  
  211. sub putEdit {
  212.     $val{'type'} = $type;
  213.     $val{'route'} = $rout;
  214. }
  215.  
  216. sub doEdit {
  217.     $cmd2 = "/usr/etc/route delete -$fld{'old_type'} $fld{'chosen'} $fld{'old_route'}";
  218.     system("$cmd2 > /dev/null 2>&1");
  219.  
  220.     $cmd1 = "/usr/etc/route add -$fld{'type'} $fld{'chosen'} $fld{'route'}";
  221.     system("$cmd1 > /dev/null 2>&1");
  222.  
  223.     open(IN,"< $conf");
  224.     open(OUT,"> $dummy");
  225.     while(<IN>) {
  226.     @items = split(/\s+/);
  227.     if ($items[3] eq $fld{'chosen'}) { print OUT "# $_"; }
  228.     else { print OUT $_; }
  229.     }
  230.     print OUT "$cmd1\n";
  231.     close(IN);
  232.     close(OUT);
  233.     rename($dummy,$conf);
  234.  
  235.     $message .= "Route edited.";
  236. }
  237.     
  238. sub getEdit {
  239.     &js_title_block($title,$js_edit);
  240.     &header_block("Edit Route");
  241.  
  242.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  243.  
  244.     print "<input type=hidden name=chosen value=$fld{'chosen'}>\n";
  245.     print "<input type=hidden name=old_route value=$val{'old_route'}>\n";
  246.     print "<input type=hidden name=old_type value=$val{'old_type'}>\n";
  247.  
  248.     print "<center><table width=450>";
  249.  
  250.     print "<tr><th align=left>IP address of route destination:</th><td>
  251.         <tt>$fld{'chosen'}</tt></td></tr>";
  252.     print "<tr><th align=left>IP address of router:</th><td>",
  253.         &text('route',$val{'route'},16),"</td></tr>";
  254.     print "<tr><th align=left>Type of network route:</th><td>",
  255.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  256.  
  257.     print "</table></center>";
  258.  
  259.     print &js_buttons('doEdit','Ok','onClick="markOK()"','onClick="markOther()"');
  260.     
  261.     print '</form>';
  262. }
  263.  
  264. sub getAdd {
  265.     &js_title_block($title,$js_add);
  266.     &header_block("Add New Route");
  267.  
  268.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  269.  
  270.     print "<input type=hidden name=destination value=$fld{'destination'}>";
  271.  
  272.     print "<center><table width=450>";
  273.  
  274.     print "<tr><th align=left>IP address of route destination:</th><td>
  275.         <tt>$fld{'destination'}</tt></td></tr>";
  276.     print "<tr><th align=left>IP address of router:</th><td>",
  277.         &text('route',$val{'route'},16),"</td></tr>";
  278.     print "<tr><th align=left>Type of network route:</th><td>",
  279.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  280.  
  281.     print "</table></center>";
  282.  
  283.     print &js_buttons('doAdd','Ok','onClick="markOK()"','onClick="markOther()"');
  284.     
  285.     print '</form>';
  286. }
  287.    
  288. sub generic {
  289.     &js_title_block($title,$js_main);
  290.     &header_block($title);
  291.  
  292.     print "<i>$message</i>";
  293.  
  294.     print "<form name=AccountForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  295.  
  296.     print "<center><table width=450>\n";
  297.  
  298.     print "<tr><th align=left>";
  299.     print qq|<input type=submit name=add value="Add New Route" onClick="markAdd()">|;
  300.     print "\n</th><td><input size=19 type=text name=destination 
  301.         value=$val{'destination'}>";
  302.     print "</td></tr>\n";
  303.  
  304.     if ($delete) { 
  305.         undef @locList;
  306.         foreach $arg (@routes) {
  307.             if ($arg ne $fld{'chosen'}) { 
  308.             push(@locList,$arg); }
  309.         }
  310.         print "<input type=hidden name=delGateway value=$fld{'chosen'}>"; 
  311.     } else { @locList = @routes; }
  312.  
  313.     print "<tr><th align=left>";
  314.     print qq|<input type=submit name=edit value="Edit Selected Route" onClick="markEdit()">|;
  315.     print "\n</th><td rowspan=2>", &choice_list(*locList,"chosen",20), "</td></tr>\n";
  316.  
  317.     print "<tr><th align=left>";
  318.     print qq|<input type=submit name=delete value="Delete Selected Route" onClick="markDelete()">|;
  319.     print "</th></tr>\n";
  320.     print "\n</table></center>\n";
  321.  
  322.     print &js_buttons('doit','Ok','onClick="markOther()"','onClick="markOther()"');
  323.     
  324.     print '</form>';
  325. }
  326.  
  327. sub getGateways {
  328.     undef @routes;
  329.  
  330.     open(GATE, "< $conf");
  331.     while (<GATE>) {
  332.     @items = split(/\s+/);
  333.     if ($items[0] ne 'route' && $items[1] ne 'add') { next; }
  334.     push(@routes,$items[3]);
  335.     if ($items[3] eq $_[0]) {
  336.         $type = substr($items[2],1);
  337.         $rout = $items[4];
  338.     }
  339.     }
  340.     close(GATE);
  341. }
  342.